Graphics 800,600,0,2
SetBuffer BackBuffer()


Local Bild=LoadImage("pfad/dateiname.png")		; hier wird ein Bild geladen...
Cls
DrawImage Bild,0,0								; ... und angezeigt
Flip
WaitKey()


Local Wurzel_2#=Sqr(2)
Cls
Print "die Quadratwurzel von 2 ist "+Wurzel_2
Flip
WaitKey()


Type Zahl
	Field Zahl
End Type
Local z.Zahl=Null
z=New Zahl:z\Zahl=0
z=New Zahl:z\Zahl=1
z=New Zahl:z\Zahl=1
z=New Zahl:z\Zahl=2
z=New Zahl:z\Zahl=3
z=New Zahl:z\Zahl=5
z=New Zahl:z\Zahl=8
z=New Zahl:z\Zahl=13
z=New Zahl:z\Zahl=21
z=New Zahl:z\Zahl=34
z=New Zahl:z\Zahl=55
z=New Zahl:z\Zahl=89
z=New Zahl:z\Zahl=144
z=New Zahl:z\Zahl=233
z=New Zahl:z\Zahl=377
z=New Zahl:z\Zahl=610
z=New Zahl:z\Zahl=987

; es sollen nur die Zahlen ausgegeben werden, die grer als 100 sind
Cls
For z=Each Zahl
	If z\Zahl>100 Then Print z\Zahl
Next
Flip
WaitKey()


Goto Programmende

. Programmende
End